﻿<Serializable()> _
Public Class Codigo
    Inherits BaseDominio

    Private _nome As String
    Public Overridable Property Nome() As String
        Get
            Return _nome
        End Get
        Set(ByVal value As String)
            _nome = value
        End Set
    End Property

    Private _link As String
    Public Overridable Property Link() As String
        Get
            Return _link
        End Get
        Set(ByVal value As String)
            _link = value
        End Set
    End Property

    Private _descricao As String
    Public Overridable Property Descricao() As String
        Get
            Return _descricao
        End Get
        Set(ByVal value As String)
            _descricao = value
        End Set
    End Property

    Private _codigo As String
    Public Overridable Property Codigo() As String
        Get
            Return _codigo
        End Get
        Set(ByVal value As String)
            _codigo = value
        End Set
    End Property

#Region "Negocio"

    Public Sub New()
        MyBase.New()
    End Sub

    Public Overridable Function Buscar(ByVal _id As Long) As Codigo
        Return MyBase.CodigoDao.Buscar(_id)
    End Function

    Public Overridable Sub Salvar()
        MyBase.CodigoDao.Salvar(Me)
    End Sub

#End Region

End Class
